home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / shazam.exe / BCAST.EVT < prev    next >
Encoding:
Text File  |  1992-09-01  |  1.6 KB  |  52 lines
  1.    {|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  2.  
  3.    TARGET - Can you see the two ways this is accessed?
  4.  
  5.    |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
  6. procedure ResultMsg ( S : string ) ;
  7. begin
  8.    MessageBox ( ^C + S ,
  9.                 NIL ,
  10.                 mfInformation + mfOKButton ) ;
  11. end ;
  12.    {|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  13.  
  14.    BROADCAST
  15.  
  16.    |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
  17.    {===================================================================
  18.  
  19.    Extracted by SHAZAM, and placed in "HandleBroadcast"
  20.  
  21.    ===================================================================}
  22. procedure hbSendIndirect ;
  23. begin
  24.    ResultMsg ( 'BROADCAST!' ) ;
  25. end ;
  26.    {|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  27.  
  28.    COMMAND
  29.  
  30.    |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
  31.    {===================================================================
  32.  
  33.    Extracted and placed in "HandleCommand"; called from MenuBar
  34.  
  35.    ===================================================================}
  36. procedure hdSendDirect ;
  37. begin
  38.    ResultMsg ( 'DIRECT!' ) ;
  39. end ;
  40.    {===================================================================
  41.  
  42.    Extracted and placed in "HandleCommand"; called from MenuBar
  43.  
  44.    ===================================================================}
  45. procedure hdSendBroadcast ;
  46. begin
  47.    Message ( Application ,
  48.              evBroadcast ,
  49.              cmSendIndirect ,
  50.              NIL ) ;
  51. end ;
  52.